home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / megatrek.zip / WARP.ASC < prev   
Text File  |  1982-07-03  |  640b  |  18 lines
  1. 50000 INPUT"WARP FACTOR";K
  2. 50010 PRINT
  3. 50020 IF K<1 THEN 50130
  4. 50030 IF K>10 THEN 50140
  5. 50040 J=W1:W1=K:W2=W1*W1
  6. 50050 IF(W1<=J)OR(W1<=6)THEN 50080
  7. 50060 IF W1<=8 THEN 50090
  8. 50070 IF W1>8 THEN 50100
  9. 50080 PRINT"'WARP FACTOR";W1;"CAPTAIN'":GOTO 70
  10. 50090 PRINT"*** OUR MAXIMUM SAFE SPEED IS WARP 6":GOTO 70
  11. 50100 IF W1=10 THEN 50120
  12. 50110 PRINT"*** CAPTAIN, OUR ENGINES MAY NOT TAKE IT !":GOTO 70
  13. 50120 PRINT"-'AYE, CAPTAIN, WE'LL GIVE IT A TRY.'":GOTO 70
  14. 50130 PRINT"-'WE CAN'T GO BELOW WARP 1, CAPTAIN.'":GOTO 70
  15. 50140 PRINT"-'OUR TOP SPEED IS WARP 10, CAPTAIN.'"
  16. 50150 GOTO 70
  17. 60000 REM end overlay
  18. GO BELOW WARP 1, CAPTA